PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Updates⁄New/AppointmentMaster™ v1.1.1/stack.txt

Text File | 1988-06-01 | 20.8 KB | 360 lines

-- stack: in.1
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2621
-- card count: 5
-- first card id: 3049
-- list block id: 3218
-- print block id: 3532
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 84864 bytes
-- stack block size: 9728 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on closeStack
  global whosThere
  put "Have Yourself a SUPER GOOD DAY" && whosThere && "!" into message box
  doMenu "Compact Stack"
  RemShow Meo
  show menubar
  hide message box
  visual effect zoom out
end closeStack



on update theDate
  global whosThere
  ask "What is your name, Please?" with field id 26
  put it into field id 26
  put it into whosThere
  put the long date into field id 5 of card id 3049
  theSchedule schedule
end update



on theSchedule schedule
  set cursor to 4
  put empty into field id 6
  put empty into field id 7
  put empty into field id 8
  put empty into field id 9
  put empty into field id 10
  put empty into field id 11
  put empty into field id 12
  put empty into field id 13
  put empty into field id 14
  put empty into field id 15
  put empty into field id 16
  put empty into field id 17
  put empty into field id 30   --field "Links" is a hidden field
  get field id 5
  convert it to seconds
  put it into thisDay
  put 1 into lineNumber
  repeat with x = 2 to (the number of cards)
    get (field id 2 of card x)  --field "Date"
    if it is empty then next repeat
    convert it to seconds
    if it = thisDay then
      put (the id of card x) into line lineNumber of field "Links"
      add 1 to lineNumber
      get field id 47 of card x  --field "My Name"
      if it = field id 26 of card id 3049 then
        get field id 43 of card x  --field "Appointment Time"
        put it into apptTime
        get field id 1 of card x   --field "ClientName"
        put it into temp2
        put the number of chars of temp2 into countChar
        put 34 into maxChar
        subtract countChar from maxChar
        get field id 6 of card x  --field "ApptDetails"
        put it into temp3
        put "," after char maxChar of temp3
        get the number of items of temp3
        put empty into item 2 to it of temp3
        put empty into last char of temp3
        get apptTime  --a variable holding the appointment time.
        if it ≥ 0900 and it ≤ 0914 or it ≥ 900 and it ≤ 914 or it = 9 then
          put temp2 & "—" & temp3 into line 1 of field id 6
        else
          if it ≥ 0915 and it ≤ 0929 or it ≥ 915 and it ≤ 929 then
            put temp2 && "—" & temp3 into line 2 of field id 6
          else
            if it ≥ 0930 and it ≤ 0944 or it ≥ 930 and it ≤ 944 then
              put temp2 && "—" & temp3 into line 3 of field id 6
            else
              if it ≥ 0945 and it ≤ 0959 or it ≥ 945 and it ≤ 959 then
                put temp2 && "—" & temp3 into line 4 of field id 6
              else
                if it ≥ 1000 and it ≤ 1014 or it = 10 then
                  put temp2 && "—" & temp3 into line 1 of field id 7
                else
                  if it ≥ 1015 and it ≤ 1029 then
                    put temp2 && "—" & temp3 into line 2 of field id 7
                  else
                    if it ≥ 1030 and it ≤ 1044 then
                      put temp2 && "—" & temp3 into line 3 of field id 7
                    else
                      if it ≥ 1045 and it ≤ 1059 then
                        put temp2 && "—" & temp3 into line 4 of field id 7
                      else
                        if it ≥ 1100 and it ≤ 1114 or it = 11 then
                          put temp2 && "—" & temp3 into line 1 of field id 8
                        else
                          if it ≥ 1115 and it ≤ 1129 then
                            put temp2 && "—" & temp3 into line 2 of field id 8
                          else
                            if it ≥ 1130 and it ≤ 1144 then
                              put temp2 && "—" & temp3 into line 3 of field id 8
                            else
                              if it ≥ 1145 and it ≤ 1159 then
                                put temp2 && "—" & temp3 into line 4 of field id 8
                              else
                                if it ≥ 1200 and it ≤ 1214 or it = 12 then
                                  put temp2 && "—" & temp3 into line 1 of field id 9
                                else
                                  if it ≥ 1215 and it ≤ 1229 then
                                    put temp2 && "—" & temp3 into line 2 of field id 9
                                  else
                                    if it ≥ 1230 and it ≤ 1244 then
                                      put temp2 && "—" & temp3 into line 3 of field id 9
                                    else
                                      if it ≥ 1245 and it ≤ 1259 then
                                        put temp2 && "—" & temp3 into line 4 of field id 9
                                      else
                                        if it ≥ 100 and it ≤ 114 or it ≥ 1300 and it ≤ 1314 or it = 1 then
                                          put temp2 && "—" & temp3 into line 1 of field id 10
                                        else
                                          if it ≥ 115 and it ≤ 129 or it ≥ 1315 and it ≤ 1329 then
                                            put temp2 && "—" & temp3 into line 2 of field id 10
                                          else
                                            if it ≥ 130 and it ≤ 144 or it ≥ 1330 and it ≤ 1344 then
                                              put temp2 && "—" & temp3 into line 3 of field id 10
                                            else
                                              if it ≥ 145 and it ≤ 159 or it ≥ 1345 and it ≤ 1359 then
                                                put temp2 && "—" & temp3 into line 4 of field id 10
                                              else
                                                if it ≥ 200 and it ≤ 214 or it ≥ 1400 and it ≤ 1414 or it = 2 then
                                                  put temp2 && "—" & temp3 into line 1 of field id 11
                                                else
                                                  if it ≥ 215 and it ≤ 229 or it ≥ 1415 and it ≤ 1429 then
                                                    put temp2 && "—" & temp3 into line 2 of field id 11
                                                  else
                                                    if it ≥ 230 and it ≤ 244 or it ≥ 1430 and it ≤ 1444 then
                                                      put temp2 && "—" & temp3 into line 3 of field id 11
                                                    else
                                                      if it ≥ 245 and it ≤ 259 or it ≥ 1445 and it ≤ 1459 then
                                                        put temp2 && "—" & temp3 into line 4 of field id 11
                                                      else
                                                        if it ≥ 300 and it ≤ 314 or it ≥ 1500 and it ≤ 1514 or it = 3 then
                                                          put temp2 && "—" & temp3 into line 1 of field id 12
                                                        else
                                                          if it ≥ 315 and it ≤ 329 or it ≥ 1515 and it ≤ 1529 then
                                                            put temp2 && "—" & temp3 into line 2 of field id 12
                                                          else
                                                            if it ≥ 330 and it ≤ 344 or it ≥ 1530 and it ≤ 1544 then
                                                              put temp2 && "—" & temp3 into line 3 of field id 12
                                                            else
                                                              if it ≥ 345 and it ≤ 359 or it ≥ 1545 and it ≤ 1559 then
                                                                put temp2 && "—" & temp3 into line 4 of field id 12
                                                              else
                                                                if it ≥ 400 and it ≤ 414 or it ≥ 1600 and it ≤ 1614 or it = 4 then
                                                                  put temp2 && "—" & temp3 into line 1 of field id 13
                                                                else
                                                                  if it ≥ 415 and it ≤ 429 or it ≥ 1615 and it ≤ 1629 then
                                                                    put temp2 && "—" & temp3 into line 2 of field id 13
                                                                  else
                                                                    if it ≥ 430 and it ≤ 444 or it ≥ 1630 and it ≤ 1644 then
                                                                      put temp2 && "—" & temp3 into line 2 of field id 13
                                                                    else
                                                                      if it ≥ 445 and it ≤ 459 or it ≥ 1645 and it ≤ 1659 then
                                                                        put temp2 && "—" & temp3 into line 4 of field id 13
                                                                      else
                                                                        if it ≥ 500 and it ≤ 514 or it ≥ 1700 and it ≤ 1714 or it = 5 then
                                                                          put temp2 && "—" & temp3 into line 1 of field id 14
                                                                        else
                                                                          if it ≥ 515 and it ≤ 529 or it ≥ 1715 and it ≤ 1729 then
                                                                            put temp2 && "—" & temp3 into line 2 of field id 14
                                                                          else
                                                                            if it ≥ 530 and it ≤ 544 or it ≥ 1730 and it ≤ 1744 then
                                                                              put temp2 && "—" & temp3 into line 3 of field id 14
                                                                            else
                                                                              if it ≥ 545 and it ≤ 559 or it ≥ 1745 and it ≤ 1759 then
                                                                                put temp2 && "—" & temp3 into line 4 of field id 14
                                                                              else
                                                                                if it ≥ 600 and it ≤ 614 or it ≥ 1800 and it ≤ 1814 or it = 6 then
                                                                                  put temp2 && "—" & temp3 into line 1 of field id 15
                                                                                else
                                                                                  if it ≥ 615 and it ≤ 629 or it ≥ 1815 and it ≤ 1829 then
                                                                                    put temp2 && "—" & temp3 into line 2 of field id 15
                                                                                  else
                                                                                    if it ≥ 630 and it ≤ 644 or it ≥ 1830 and it ≤ 1844 then
                                                                                      put temp2 && "—" & temp3 into line 3 of field id 15
                                                                                    else
                                                                                      if it ≥ 645 and it ≤ 659 or it ≥ 1845 and it ≤ 1859 then
                                                                                        put temp2 && "—" & temp3 into line 4 of field id 15
                                                                                      else
                                                                                        if it ≥ 700 and it ≤ 714 or it ≥ 1900 and it ≤ 1914 or it = 7 then
                                                                                          put temp2 && "—" & temp3 into line 1 of field id 16
                                                                                        else
                                                                                          if it ≥ 715 and it ≤ 729 or it ≥ 1915 and it ≤ 1929 then
                                                                                            put temp2 && "—" & temp3 into line 2 of field id 16
                                                                                          else
                                                                                            if it ≥ 730 and it ≤ 744 or it ≥ 1930 and it ≤ 1944 then
                                                                                              put temp2 && "—" & temp3 into line 3 of field id 16
                                                                                            else
                                                                                              if it ≥ 745 and it ≤ 759 or it ≥ 1945 and it ≤ 1959 then
                                                                                                put temp2 &&"—" & temp3 into line 4 of field id 16
                                                                                              else
                                                                                                if it ≥ 800 and it ≤ 814 or it ≥ 2000 and it ≤ 2014 or it = 8 then
                                                                                                  put temp2 && "—" & temp3 into line 1 of field id 17
                                                                                                else
                                                                                                  if it ≥ 815 and it ≤ 829 or it ≥ 2015 and it ≤ 2029 then
                                                                                                    put temp2 && "—" & temp3 into line 2 of field id 17
                                                                                                  else
                                                                                                    if it ≥ 830 and it ≤ 844 or it ≥ 2030 and it ≤ 2044 then
                                                                                                      put temp2 && "—" & temp3 into line 3 of field id 17
                                                                                                    else
                                                                                                      if it ≥ 845 and it ≤ 859 or it ≥ 2045 and it ≤ 2059 then
                                                                                                        put temp2 && "—" & temp3 into line 4 of field id 17
                                                                                                      end if
                                                                                                    end if
                                                                                                  end if
                                                                                                end if
                                                                                              end if
                                                                                            end if
                                                                                          end if
                                                                                        end if
                                                                                      end if
                                                                                    end if
                                                                                  end if
                                                                                end if
                                                                              end if
                                                                            end if
                                                                          end if
                                                                        end if
                                                                      end if
                                                                    end if
                                                                  end if
                                                                end if
                                                              end if
                                                            end if
                                                          end if
                                                        end if
                                                      end if
                                                    end if
                                                  end if
                                                end if
                                              end if
                                            end if
                                          end if
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end repeat
end theSchedule



on RemShow Meo
  get the date
  convert it to dateItems
  if item 3 of it = 1 or item 3 of it =15 then
    beep 2
    put "Paid your SHAREWARE FEE yet ? If So—THANKS! If No — PLEASE DO"
    wait 5 seconds
    play boing
    hide message box
  end if
end RemShow



on openStack
  visual zoom in
  hide menubar
  hide message box
  show field id 25  --Copyright field-DO NOT REMOVE
  update theDate
  RemShow Meo
end openStack